PGM=ICET00L

Local FTP Trigger JES job

随便写了一个搜索ABC字符串的JCL，保存到桌面:
C:\Documents and Settings\Foo\Desktop\IBMUSERJ.txt 

//IBMUSERJ JOB '000000000000000000CMP',      
//     CLASS=0,NOTIFY=IBMUSER,TIME=NOLIMIT,MSGCLASS=R                                           
//ONLINE  EXEC PGM=ISRSUPC,                  
//            PARM=(SRCHCMP,                 
//            'ANYC')   
//NEWDD  DD DSN=IBMUSER.PROCLIB,DISP=SHR  
//OUTDD  DD SYSOUT=*    
//SYSIN  DD *           
SRCHFOR  'ABC'       
//*

用ftp的方式将jcl送入JES系统执行。win+R打开cmd 

C:\Documents and Settings\Foo\Desktop>ftp ftpserver  
/*input username/password*/  
ftp> ascii  
200 Representation type is Ascii NonPrint  
ftp> quote site filetype=jes  
200 SITE command was accepted  
ftp> put IBMUSERJ.txt  
200 Port request OK.  
125 Sending Job to JES internal reader FIXrecfm 80  
250-It is known to JES as J0693574  
250 Transfer completed successfully.  
419 bytes sent in 0.002 seconds (209499 bytes/s)  
ftp> quit  
221 Quit command received. Goodbye.

可以看到送入JES系统的job number是J0693574，登录TSO,在SDSF里面可以看到job在执行。 

Display  Filter  View  Print  Options  Search  Help                              
 -------------------------------------------------------------------------------  
 SDSF STATUS DISPLAY ALL CLASSES                        LINE 14-14 (14)           
 COMMAND INPUT ===>                                            SCROLL ===> CSR    
 PREFIX=IBMUSER*  DEST=(ALL)  OWNER=*  SYSNAME=                                   
 NP   JOBNAME  TYPE JNUM   PRTY QUEUE      ASYS C MC PRT-DEST STAT TOT-LINES  RM  
      IBMUSERJ JOB  693574    1 PRINT           0 R  LOCAL                173

Comments !